home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
misc
/
montor.zip
/
MONSRC.ZIP
/
DISKDLL.PAS
next >
Wrap
Pascal/Delphi Source File
|
1993-08-14
|
376b
|
20 lines
LIBRARY DiskDll;
USES WinDos;
{$D Copyright (c) 1993 by Neil J. Rubenking}
FUNCTION GetDiskSize(Drive : Word) : LongInt; Export;
BEGIN
GetDiskSize := DiskSize(Drive);
END;
FUNCTION GetDiskFree(Drive : Word) : LongInt; Export;
BEGIN
GetDiskFree := DiskFree(Drive);
END;
EXPORTS
GetDiskSize INDEX 1,
GetDiskFree INDEX 2;
BEGIN
END.